home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (DO) / Micro on the Apple Volume 2 (1981)(Micro Ink).zip / Micro on the Apple Volume 2 (1981)(Micro Ink).do / APPLAYER MENU.int < prev    next >
Text File  |  1996-12-24  |  899b  |  37 lines
  1. 1 REM  ************************
  2. 2 REM  *                      *
  3. 3 REM  *    APPLAYER MUSIC    *
  4. 4 REM  *     INTERPRETER      *
  5. 5 REM  *                      *
  6. 6 REM  *   BY RICHARD SUITOR  *
  7. 7 REM  *                      *
  8. 8 REM  *     APPLAYER MENU    *
  9. 9 REM  *                      *
  10. 10 REM  *  COPYRIGHT (C) 1981  *
  11. 11 REM  *    MICRO INK, INC.   *
  12. 12 REM  * CHELMSFORD, MA 01824 *
  13. 13 REM  *  ALL RIGHTS RESERVED *
  14. 14 REM  *                      *
  15. 15 REM  ************************
  16. 16 REM 
  17. 17 REM 
  18. 18 PRINT "<CTRL-D>BLOAD APPLAYER"
  19. 19 LOMEM:4095
  20. 20 START=2496:LOBYTE=2512
  21. 30 IMAX=2
  22. 100 CALL -936
  23. 110 TAB 13
  24. 120 PRINT "APPLAYER MENU"
  25. 130 VTAB 4
  26. 140 PRINT "1  -  TWINKLE, TWINKLE"
  27. 150 PRINT "2  -  TURKEY IN THE STRAW"
  28. 195 VTAB 19
  29. 200 INPUT "WHICH NUMBER",I
  30. 220 IF I<0 OR I>IMAX THEN 100
  31. 230 IF I=0 THEN END 
  32. 240 IF I=1 THEN J=32
  33. 250 IF I=2 THEN J=0
  34. 300  POKE LOBYTE,J
  35. 320 CALL START
  36. 350 GOTO 100
  37.